home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
DIVERSEN
/
WINE02BX
/
FONT-LOC.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
10KB
|
69 lines
;;; compiled by jwz@thalidomide on Mon Dec 21 20:49:24 1992
;;; from file /cadillac-th/jwz/emacs19/lisp/packages/font-lock.el
;;; emacs version 19.4.1 Lucid.
;;; bytecomp version 2.08; 13-dec-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(byte-code "└┴!¼ä┬┴!ê├┴!¼à─┼┴\"ê└╞!¼ä┬╞!ê├╞!¼à─┴╞\"ê└╟!¼ä┬╟!ê├╟!¼Ü─╞╟\"ê╟╚╔\n═╬╧\n%ê+└╨!¼ä┬╨!ê├╨!¼à─╤╨\"ê└╥!¼ä┬╥!ê├╥!¼à─╙╥\"ê╔ç" [find-face font-lock-comment-face make-face face-differs-from-default-p copy-face italic font-lock-doc-string-face font-lock-string-face t nil screen underline-p face set-face-1 underline 7 font-lock-function-name-face bold-italic font-lock-keyword-face bold] 6)
(defvar font-lock-keywords nil "\
*The keywords to highlight.
If this is a list, then elements may be of the forms:
\"string\" ; a regexp to highlight in the
; `font-lock-keyword-face'.
(\"string\" . integer) ; match N of the regexp will be highlighted
(\"string\" . face-name) ; use the named face
(\"string\" integer face-name) ; both of the above
(\"string\" integer face-name t) ; this allows highlighting to overlap
; with already-highlighted regions.
These regular expressions should not match text which spans lines. Multi-line
patterns will be correctly fontified when \\[font-lock-fontify-buffer] is used,
but will not be matched by the auto-fontification that font-lock-mode does,
since it looks at only one line at a time.
Be careful composing regexps for this list; the wrong pattern can dramatically
slow things down!")
(defvar font-lock-keywords-case-fold-search nil "\
*Whether the strings in `font-lock-keywords' should be case-folded.")
(defvar font-lock-verbose t "\
*Whether font-lock-fontify-buffer should print status messages.")
(defvar font-lock-mode-hook nil "\
*Function or functions to run on entry to font-lock-mode.")
(byte-code "└┴Mê┬└├─#ê┼╞Mê╟╚Mê╔╩Mê╦╠Mê┬╦├─#ê═╬Mê╧╨!¼â╤╨₧¼å╙Cñê╧╘!¼â╤┬╘╒╓#ç" [font-lock-context-face #[(context depth) "┴=½é┬ç├=½é┬ç─=½ë╞U½é╟ç╚ç╔ç" [context comment font-lock-comment-face block-comment string depth 1 font-lock-doc-string-face font-lock-string-face nil] 2] put byte-optimizer byte-compile-inline-expand font-lock-fontify-region #[(start end) "bê dV½éd┬ ├─$ç" [start end syntactically-sectionize #[(extent context depth) "└ \në─=½â┼¬Ö\n╞=½â┼¬æ\n╟=½ï╚U½â╔¬ä╩¬ü╦*\"ç" [set-extent-face extent context depth comment font-lock-comment-face block-comment string 1 font-lock-doc-string-face font-lock-string-face nil] 5] font-lock] 5] font-lock-unfontify-region #[(beg end) "└ëë─┼p└%+ç" [nil extent2 e s map-extents #[(extent ignore) "└ !┬=??¡╠├ !┼ !W½⌐╚ S#ê TV¡¡╩ T\"╠═ !\"ê╬└ !\"ç TV½ë╚ T#ç╧ !ç" [extent-data extent font-lock extent-start-position s extent-end-position e beg set-extent-endpoints end make-extent extent2 set-extent-face extent-face set-extent-data delete-extent] 4] beg end] 6] font-lock-after-change-function #[(beg end old-len) "è└ bê┼V¼êh╞U¼âo½â╟ êbê╔ê`bê┼yê`╩\"ê╦T\"ê╠\"ê═\n!+ç" [match-data zmacs-region-stays data beg old-len 0 10 buffer-syntactic-context-flush-cache end nil font-lock-unfontify-region font-lock-fontify-region font-lock-hack-keywords store-match-data] 3] font-lock-any-extents-p #[(start end) "└┴ìç" [done (byte-code "└┴p\n─%ê─ç" [map-extents #[(extent ignore) "└ !┬=¡ä├─┼\"ç" [extent-data extent font-lock throw done t] 3] start end nil] 6)] 2] font-lock-hack-keywords #[(start end &optional loudly) "bê \n├─ëëëëëë \nà┘ bê@:½╟@@@A:½Ö@A@\n@AA@ @AAA@¬«@A9½ì├\n─@A ¬Ü@A\n─╧ ¬ì@├\n─╧ ╨╥#½▒\nö\nò¼ì╙╘ì*¼]╒\"╓ \"ê╫╪\"ê¬F½Å┌█▄▌Të▐\"\"!êAëä% ─.\nç" [start font-lock-keywords-case-fold-search font-lock-keywords 0 nil allow-overlap-p extent e s face match str count rest case-fold-search font-lock-keyword-face re-search-forward end t done (byte-code "└┴p\n─%ê─ç" [map-extents #[(extent ignore) "└ !┬=¡ä├─┼\"ç" [extent-data extent font-lock throw done t] 3] start end nil] 6) make-extent set-extent-face set-extent-data font-lock loudly message format "Fontifying buffer... (regexps...%s)" make-string 46] 11] boundp font-lock-mode nil minor-mode-alist (font-lock-mode " Font-Lock") font-lock-fontified permanent-local t] 4)
(fset 'font-lock-mode #[(&optional arg) "¼ä ?¬à┬!├V┼ ╞ܽé╟╔>¼å╩╦\"ê╠╚!¡ü═Lê╠┴!Lê½ì╬╧!ê¼æ╤ ê¬î½ê╟╥ed\"ê╙ )ç" [arg font-lock-mode prefix-numeric-value 0 on-p buffer-name " *Compiler Input*" nil after-change-function (nil font-lock-after-change-function) error "after-change-function is %s" make-local-variable font-lock-after-change-function run-hooks font-lock-mode-hook font-lock-fontified font-lock-fontify-buffer font-lock-unfontify-region redraw-mode-line] 3 "\
Toggle Font Lock Mode.
With arg, turn font-lock mode on if and only if arg is positive.
In the font-lock minor mode, text is fontified as you type it:
- comments are displayed in font-lock-comment-face;
- strings are displayed in font-lock-string-face;
- documentation strings are displayed in font-lock-doc-string-face;
- function and variable names in their defining forms are displayed
in font-lock-function-name-face;
- and certain other expressions are displayed in other faces
according to the value of the variable `font-lock-keywords'.
When font-lock mode is turned on/off, the buffer is fontified/defontified.
To fontify a buffer without having newly typed text become fontified, you
can use \\[font-lock-fontify-buffer]." "P"])
(fset 'font-lock-fontify-buffer #[nil " «üt ½ä├─!ê\n¼ä└┼!ê╞╟ped╚%ê ½ä├╔!ê╩ êè╦ed\"ê ½ä├╠!ê═ed #ê)\n¼ä└╬!ê╧╨!╤Lê ¡â├╥!*ç" [font-lock-mode font-lock-verbose was-on message "Fontifying buffer..." 1 map-extents #[(x y) "└ !┬=¡â├ !ç" [extent-data x font-lock delete-extent] 2] nil "Fontifying buffer... (syntactically...)" buffer-syntactic-context-flush-cache font-lock-fontify-region "Fontifying buffer... (regexps...)" font-lock-hack-keywords 0 make-local-variable font-lock-fontified t "Fontifying buffer... done."] 6 "\
Fontify the current buffer the way `font-lock-mode' would:
- comments are displayed in font-lock-comment-face;
- strings are displayed in font-lock-string-face;
- documentation strings are displayed in font-lock-doc-string-face;
- function and variable names in their defining forms are displayed
in font-lock-function-name-face;
- and certain other expressions are displayed in other faces
according to the value of the variable `font-lock-keywords'.
This can take a while for large buffers." nil])
(byte-code "└┬├!¼ñ─┼╞╟P \n╦╠═╬╧╨╤ë╥╙░╘╒E╓╫P╪╒E»+┬┘!¼ë┌█▄▌▐»┬▀!¼èαßΓπΣσ»┬µ!¼ÄτΦΘΩδ∞φε∩≡»\n&±≥Mê≤⌠±\"ç" [(("^(def[-a-z]+\\s +\\([^ \n)]+\\)" 1 font-lock-function-name-face) ("\\s :\\(\\sw\\|\\s_\\)+\\>" . 1)) lisp-font-lock-keywords boundp c-font-lock-keywords "auto\\|extern\\|register\\|static\\|volatile" "unsigned\\|short\\|long" "int\\|char\\|float\\|double\\|void\\|struct\\|" "union\\|enum\\|typedef" types prefixes storage ("^#[ ]*[a-z]+" . font-lock-comment-face) ("^#[ ]*define[ ]+\\(\\(\\sw\\|\\s_\\)+\\)" 1 font-lock-function-name-face) ("^#[ ]*include[ ]+<\\([^>\n]+\\)>" 1 font-lock-string-face) ("case[ ]+\\(\\sw\\|\\s_\\)+:" . 1) ("\\<\\(default\\):" . 1) "^\\(\\(\\sw\\|\\s_\\)+[ ]+\\)?" "\\(\\(\\sw\\|\\s_\\)+[ ]+\\)?" "\\(\\*+[ ]*\\)?" "\\(\\sw\\|\\s_\\)+[ ]*(" 8 font-lock-function-name-face "^\\(typedef[ ]+struct\\|struct\\|static[ ]+struct\\)" "[ ]+\\(\\sw\\|\\s_\\)+[ ]*\\({\\|$\\)" 2 perl-font-lock-keywords "[ \n {]*\\(if\\|until\\|while\\|elsif\\|else\\|unless\\|for\\|foreach\\|continue\\|exit\\|die\\|last\\|goto\\|next\\|redo\\|return\\|local\\|exec\\)[ \n ;(]" "\\(#endif\\|#else\\|#ifdef\\|#ifndef\\|#if\\|#include\\|#define\\|#undef\\)" ("^[ \n ]*sub[ ]+\\([^ {]+\\)\\{" . font-lock-function-name-face) ("[ \n {]*\\(eval\\)[ \n (;]" . font-lock-function-name-face) ("\\(--- .* ---\\|=== .* ===\\)" . font-lock-doc-string-face) tex-font-lock-keywords ("\\(\\\\\\w+\\)" 1 font-lock-keyword-face t) ("{\\\\em\\([^}]+\\)}" 1 font-lock-comment-face t) ("{\\\\bf\\([^}]+\\)}" 1 font-lock-keyword-face t) ("^[ \n]*\\\\def[\\\\@]\\(\\w+\\)" 1 font-lock-function-name-face t) ("\\\\\\(begin\\|end\\){\\([a-zA-Z0-9\\*]+\\)}" 2 font-lock-function-name-face t) ("[^\\\\]\\$\\([^$]*\\)\\$" 1 font-lock-string-face t) texi-font-lock-keywords "@\\(@\\|[^} \n{]+\\)" ("^\\(@c\\|@comment\\)[ ].*$" . font-lock-comment-face) ("^\\(*.*\\)[ ]*$" 1 font-lock-function-name-face t) ("@\\(emph\\|strong\\|b\\|i\\){\\([^}]+\\)" 2 font-lock-comment-face t) ("@\\(file\\|kbd\\|key\\){\\([^}]+\\)" 2 font-lock-string-face t) ("@\\(samp\\|code\\|var\\){\\([^}]+\\)" 2 font-lock-function-name-face t) ("@\\(xref\\|pxref\\){\\([^}]+\\)" 2 font-lock-keyword-face t) ("@end *\\([a-zA-Z0-9]+\\)[ ]*$" 1 font-lock-function-name-face t) ("@item \\(.*\\)$" 1 font-lock-function-name-face t) ("\\$\\([^$]*\\)\\$" 1 font-lock-string-face t) dummy-font-lock-mode-hook #[nil "┴>½å┬├!Lç┼>½ç┬├!Lç╟=½ç┬├!Lç╔=½ç┬├!\nLç╦=¡å┬├!Lç" [major-mode (lisp-mode emacs-lisp-mode) make-local-variable font-lock-keywords lisp-font-lock-keywords (c-mode c++-mode) c-font-lock-keywords perl-mode perl-font-lock-keywords tex-mode tex-font-lock-keywords texinfo-mode texi-font-lock-keywords] 2] add-hook font-lock-mode-hook] 10)